home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD012a.dsk / ATLAS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  42 lines
  1. 100  TEXT : HOME : CLEAR 
  2. 110  REM  PROGRAM LENGTH=1000
  3. 120  REM   <CTRL-M><CTRL-M>==================<CTRL-M>PAUL RAYMER<CTRL-M>BOX 42831<CTRL-M>LAS VEGAS NV 89116<CTRL-M>==================<CTRL-J>
  4. 130  REM 
  5. 140  REM  PAUL RAYMER'S
  6. 150  REM  MYTHOLOGY
  7. 160  REM  TABLEAUX
  8. 170  REM 
  9. 180  REM  ATLAS
  10. 190  REM 
  11. 200  REM  XII/XXVI/MCMLXXXI
  12. 210  REM  (C)1982 PEC
  13. 220  REM 
  14. 230 S1$ =  CHR$(32)
  15. 240 S2$ =  CHR$(32) + CHR$(32)
  16. 250 S3$ = S1$ +S2$
  17. 260 S4$ = S2$ +S2$
  18. 270 S5$ = S4$ +S1$
  19. 280 S6$ = S5$ +S1$
  20. 290 S9$ = S4$ +S5$
  21. 300 X$ = S9$ +S4$
  22. 310 A$ = X$ +S5$ +"THE"
  23. 320 B$ = X$ +S4$ +"WHOLE"
  24. 330 C$ = X$ +S4$ +"WORLD"
  25. 340 D$ = X$ +"============="
  26. 350 E$ = X$ +S1$ +"A" +S9$ +"A"
  27. 360 F$ = X$ +S1$ +"K  " +"/###" + CHR$(92) +"  K"
  28. 370 F1$ = X$ +S1$ +"Q " +")#O#O#( Q"
  29. 380 F2$ = X$ +S1$ +"J  " + CHR$(92) +"#=#/  J"
  30. 390 G$ = X$ +"10    V    10"
  31. 400 H$ = X$ +S1$ +"X    X    X"
  32. 410 I$ = X$ +S1$ +"XXXXXXXXXXX"
  33. 420 J$ = X$ +S6$ +"X"
  34. 430 K$ = X$ +S3$ +"XXXXXXX"
  35. 440 L$ = X$ +S2$ +"X       X"
  36. 450  SPEED= 100
  37. 460  PRINT A$: PRINT B$: PRINT C$: PRINT D$
  38. 470  PRINT E$: PRINT F$: PRINT F1$: PRINT F2$: PRINT G$: PRINT H$: PRINT I$: PRINT J$: PRINT J$: PRINT J$
  39. 480  PRINT K$: PRINT L$: PRINT L$: PRINT L$: PRINT L$: PRINT L$
  40. 490  PRINT "THE TWO GOOD HANDS OF ATLAS HOLD UP THE": PRINT X$ +S1$ +"ENTIRE WORLD"
  41. 500  SPEED= 255
  42. 510  VTAB 23: HTAB 1: PRINT  CHR$(4);"RUN MYTHMENU"